MIDIPlayComplete
(Event)

Purpose: Fires when a playing MIDI-file reaches the end.

Syntax: See Example.

Arguments: None.

Example:
Private Sub Command1_Click()
____'Play a MIDI-file
____SoundCard1.MIDIPlay "C:\Windows\Media\Passport.mid"
End Sub

Private Sub SoundCard1_MIDIPlayComplete
____Debug.Print "Finished"
End Sub

Comments: The MIDIPlayComplete will not fire if playback was interrupted using MIDIStop. Don't call MIDIStop inside this Event, the Device is already closed. If the MIDI-Output was open before the MIDIPlay it will be reopened when MIDIPlayComplete fires.

See Also:

Index